The goal of this project is to pull together a database of the various NYC transportation options to ease and expedite future analyses. Individual files to clean and analyze the data are in the folders: Citi-bike, Subway-turnstiles, Taxi:
Citi-bike.RSubway_turnstiles.RTaxi.RCreate_database.R: creates a SQLite database of the Citi-bike, Subway, and (eventually) the Taxi data. Shell scripts in each folder must be run first to download the data. Currently the database is approximately 20gb representing 150mm rows.
Once the database is created, data can easily be accessed via SQL and dbplyr queries:
# establish the connection to the database
conn <- dbConnect(RSQLite::SQLite(), "NYC.db")
# query and mutate on-disk
turnstile.df <- tbl(conn, "turnstile.2019")
turnstile.df %>%
select(Station, Time, Entries, Exits) %>%
group_by(Station) %>%
summarize(Entries = sum(Entries),
Exits = sum(Exits))
# or pull data into memory and then treat as a standard data frame
turnstile.df <- tbl(conn, "turnstile.2019") %>% collect()